<%
Public Function	GetUrl(str)
GetUrl=SiteUrl&str
End Function

Public Function	GetAuthor(author)
Dim RS
Set RS=Server.CreateObject("ADODB.recordset")
RS.Open "Select screen_name From users Where uid="&author, Conn
screen_name=RS(0).value
RS.Close
GetAuthor=screen_name
End Function

Public Function	GetCategory(category)
Dim RS
Set RS=Server.CreateObject("ADODB.recordset")
RS.Open "Select cid,name From categorys Where cid="&category, Conn
cid=RS(0).value
category=RS(1).value
RS.Close
GetCategory=category
End Function

Public Function	GetSource(source)

End Function

Public Function	GetSummary(summary)

End Function

Public Function	GetTitle(title)

End Function


Public Function	GetComments_num(comments_num)

End Function
%>